COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(7),II(7),I3(3),II3(3),M(36)
C00004 ENDMK
C⊗;
	DIMENSION I(7),II(7),I3(3),II3(3),M(36)
	EQUIVALENCE (I,I3),(II,II3)
	DOUBLE PRECISION NN
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(' TYPE OUTPUT NAME  '$)
3	FORMAT(A10)
4	FORMAT(A5)
5	FORMAT(3A1,7A5)
9	FORMAT(36A1)
8	FORMAT(A3,3A5,A1,3A5)
11	FORMAT(A3,7A5,A1,36A1)
12	FORMAT(3A1,7A5,A1,3A5)
	NUM=0
	NUX=0
	J='   '
	TYPE 1
	ACCEPT 4,NAM
	TYPE 2
	ACCEPT 3,NN
	CALL IFILE(20,NAM)
	CALL DEFINE(1,0,NONO,NN)
	READ(20,5,END=20)KK,KKK,KKKK,II
	NUM=NUM+1
10	READ(20,5,END=20)JJ,JJJ,JJJJ,I
	NUM=NUM+1
	IF(JJ.NE.'	')GO TO 6
	WRITE(1,12)KK,KKK,KKKK,II,J,I3
	NUX=NUX+1
13	READ(20,5,END=20)KK,KKK,KKKK,II
	NUM=NUM+1
	IF(KK.NE.'	')GO TO 10
	READ(20,5,END=20)JJ,JJJ,JJJJ,I
	IF(JJ.NE.'	')GO TO 6
	WRITE(1,8)J,I3,KK,II3
	NUX=NUX+1
	GO TO 13
6	WRITE(1,5)KK,KKK,KKKK,II
	NUX=NUX+1
14	KK=JJ
	KKK=JJJ
	KKKK=JJJJ
	DO 100 K=1,7
100	II(K)=I(K)
	GO TO 10
20	WRITE(1,5)KK,KKK,KKKK,II
	TYPE 21,NUM,NUX
21	FORMAT(' ALL DONE -- LINES IN =',I,'   LINES OUT =',I)
	END